10 REM  ***************************
20 REM  ***  ERROR FUN  (BASIC) ***
30 REM  ***************************
40 REM
50 REM    KENT M. BRIDWELL (1985)
60 REM
70 REM
80 Q$=CHR$(34):Z$=CHR$(0)
90 POKE53280,0:POKE53281,0:PRINT"[147]"TAB(9)"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
100 PRINTTAB(9)"[221][155]ERROR FUN (BASIC)[156][221]":PRINTTAB(9)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
110 PRINT"[154]PLEASE STANDBY..."
120 FORI=40960TO41373:POKEI,PEEK(I):NEXT
130 PRINT"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
140 PRINT"  COPYING LOROM TO LORAM  [146]"
150 FORI=41374TO41767:READA:POKEI,A:NEXT
160 PRINT"[129] NEW CHARACTERS INSTALLED [146]"
170 FORI=41768TO49151:POKEI,PEEK(I):NEXT
180 READ A,B:POKE41830,A:POKE41831,B:REM- OK
190 FORI=41834TO41839:READ A:POKEI,A:NEXT:REM- ERROR
200 READ A,B:POKE41842,A:POKE41843,B:REM- IN
210 FORI=41848TO41852:READ A:POKEI,A:NEXT:REM- READY
220 FORI=41858TO41863:READ A:POKEI,A:NEXT:REM- BREAK
230 PRINT"[152]   REST OF LOROM MOVED!   [146]"
240 FORT=1TO2000:NEXT
250 PRINT"[158] PRESS <RETURN> TO ACTIVATE THE SWITCH":POKE198,0
260 GETK$:IFK$<>CHR$(13)THEN260
270 POKE1,PEEK(1)AND254
280 PRINT"[147][153]>> ERROR FUN NOW ACTIVATED <<[154]"
290 XXX:REM- ERROR
300 REM ---- ERROR MESSAGE DATA ----
310 DATA80,72,73,76,69,32,79,86,69,82,76,79,65,196,70,76,89
320 DATA76,32,79,80,69,206,83,72,85,84,32,84,72,69,32,68,79
330 DATA79,210,78,79,32,70,73,78,68,39,77,32,70,73,76,197,87
340 DATA72,69,82,69,83,32,84,72,69,32,71,65,68,71,69,84,191
350 DATA87,82,79,78,71,32,87,65,89,32,70,73,76,197,87,82,79
360 DATA78,71,32,87,65,89,32,80,72,73,76,197,80,72,73,76,69
370 DATA32,71,79,84,84,65,32,78,65,77,69,191,65,82,82,69,83
380 DATA84,32,66,79,79,75,73,78,71,32,78,85,77,66,69,210,32
390 DATA66,65,68,32,76,79,79,80,32,76,79,85,73,69,161,83,89
400 DATA78,70,85,204,71,79,84,32,76,79,83,84,32,87,73,84,72
410 DATA79,85,84,32,73,84,161,32,32,68,65,84,39,83,32,65,76
420 DATA204,73,76,76,69,71,65,76,32,71,79,79,68,73,69,83,161
430 DATA70,65,82,32,79,85,84,161,73,32,70,79,82,71,79,84,32
440 DATA72,85,72,191,83,65,89,32,87,72,65,84,44,32,87,73,76
450 DATA76,73,69,191,78,84,72,32,68,73,77,69,78,83,73,79,206
460 DATA65,82,82,65,89,32,70,79,82,32,89,79,213,68,73,86,73
470 DATA68,69,68,32,87,69,32,70,65,76,76,161,67,65,78,39,84
480 DATA32,68,79,32,84,72,65,84,161,32,78,79,84,32,77,89,32
490 DATA84,89,80,69,161,83,84,82,73,78,71,32,77,69,32,65,76
500 DATA79,78,199,68,65,84,39,83,32,66,65,196,67,79,77,80,76
510 DATA73,67,65,84,69,68,32,66,76,85,78,68,69,210,83,84,85
520 DATA67,75,32,73,78,32,68,39,77,85,196,82,69,65,76,76,89
530 DATA32,77,69,83,83,69,68,32,85,208,78,79,71,79,79,196,76
540 DATA79,85,196,65,72,66,79,79,66,79,79,65,84,82,79,87,68
550 DATA89,66,85,83,84,69,68
59999 END
60000 OPEN15,8,15,"S0:BASIC FUN":CLOSE15:SAVE"0:BASIC FUN",8